www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/admin/ProductSave.asp
<%@language=VBScript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
dim rs,sql,ErrMsg,FoundErr
dim ID,Product_Id,BigClassName,EnBigClassName,SmallClassName,EnSmallClassName
dim Title,EnTitle,Spec,EnSpec,Unit,EnUnit,Memo,EnMemo,Content,EnContent
dim UpdateTime,Hits,DefaultPicUrl,Elite,Passed
ID=Trim(Request.Form("ID"))
Product_Id=trim(request.form("Product_Id"))
BigClassName=trim(request.form("BigClassName"))
SmallClassName=trim(request.form("SmallClassName"))
Title=trim(request.form("Title"))
EnTitle=trim(request.form("EnTitle"))
Spec=trim(request.form("Spec"))
EnSpec=trim(request.form("EnSpec"))
Unit=trim(request.form("Unit"))
EnUnit=trim(request.form("EnUnit"))
Memo=trim(request.form("Memo"))
EnMemo=trim(request.form("EnMemo"))
Content=trim(request.form("Content"))
EnContent=trim(request.form("EnContent"))
UpdateTime=trim(request.form("UpdateTime"))
DefaultPicUrl=trim(request.form("DefaultPicUrl"))
Passed=trim(request.form("Passed"))
Elite=trim(request.form("Elite"))
Newproduct=trim(request.form("Newproduct"))
Hits=trim(request.form("Hits"))
sqlBig="select * from BigClass where BigClassName='" & BigClassName & "'"
Set rsBig= Server.CreateObject("ADODB.Recordset")
rsBig.open sqlBig,conn,1,1
EnBigClassName=rsBig("EnBigClassName")
rsBig.close
if SmallClassName<>"" then
sqlSmall="select * from SmallClass where SmallClassName='" & SmallClassName & "' and BigClassName='" & BigClassName & "'"
Set rsSmall= Server.CreateObject("ADODB.Recordset")
rsSmall.open sqlSmall,conn,1,1
EnSmallClassName=rsSmall("EnSmallClassName")
rsSmall.close
end if
if BigClassName="" then
founderr=true
errmsg=errmsg+"<li>未指定产品所属大类</li>"
end if
if Title="" then
founderr=true
errmsg="<li>产品标题不能为空</li>"
end if
if EnTitle="" then
EnTitle=null
end if
if Spec="" then
Spec=null
end if
if EnSpec="" then
EnSpec=null
end if
if Unit="" then
Unit=null
end if
if EnUnit="" then
EnUnit=null
end if
if Memo="" then
Memo=null
end if
if EnMemo="" then
EnMemo=null
end if
if Content="" then
founderr=true
errmsg=errmsg+"<li>产品说明不能为空</li>"
end if
if EnContent="" then
EnContent=null
end if
che()
if founderr=false then
if UpdateTime<>"" and IsDate(UpdateTime)=true then
UpdateTime=CDate(UpdateTime)
else
UpdateTime=now()
end if
if Hits<>"" then
Hits=CLng(Hits)
else
Hits=0
end if
set rs=server.createobject("adodb.recordset")
if request("action")="add" then
sql="select * from Product where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
call SaveData()
rs.update
ID=rs("ID")
rs.close
set rs=nothing
elseif request("action")="Modify" then
if ID<>"" then
sql="select * from Product where id=" & ID
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
call SaveData()
rs.update
rs.close
set rs=nothing
else
founderr=true
errmsg=errmsg+"<li>找不到此产品，可能已经被删除。</li>"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"<li>不能确定产品ID的值</li>"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"<li>没有选定参数</li>"
call WriteErrMsg()
end if
call CloseConn()
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top"> <br> <br> <b> </b><br> <br> <br>
<table class="border" align=center width="70%" border="0" cellpadding="0" cellspacing="2" bordercolor="#999999">
<tr align=center bgcolor="#A4B6D7">
<td height="25" colspan="2" class="title"><b>
<%if request("action")="add" then%>
添加
<%else%>
修改
<%end if%>
产品成功</b></td>
</tr>
<tr>
<td width="24%" height="22" bgcolor="#C0C0C0" class="tdbg"> <p align="right">产品序号：</p></td>
<td width="76%" bgcolor="#E3E3E3" class="tdbg"><%=ID%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">产品编号：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Product_Id%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">产品名称：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Title%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">规格：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Spec%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">单位：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Unit%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">备注：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Memo%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">所属类别：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"> <%response.write BigClassName
if SmallClassName<>"" then response.write " >> " & SmallClassName
%> </td>
</tr>
<tr>
<td height="22" colspan="2" bgcolor="#E3E3E3" class="tdbg"> <p align="center">
【<a href="ProductModify.asp?ID=<%=ID%>">修改产品</a>】 【<a href="ProductAdd.asp">继续添加产品</a>】 【<a href="ProductManage.asp">产品管理</a>】 【<a href="../ProductShow.asp?ID=<%=ID%>" target="_blank">预览产品内容</a>】</p></td>
</tr>
</table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
else
WriteErrMsg
end if
sub SaveData()
rs("Product_Id")=Product_Id
rs("BigClassName")=BigClassName
rs("EnBigClassName")=EnBigClassName
rs("SmallClassName")=SmallClassName
rs("EnSmallClassName")=EnSmallClassName
rs("Title")=Title
rs("EnTitle")=EnTitle
rs("Spec")=Spec
rs("EnSpec")=EnSpec
rs("Unit")=Unit
rs("EnUnit")=EnUnit
rs("Memo")=Memo
rs("EnMemo")=EnMemo
rs("Content")=Content
rs("EnContent")=EnContent
rs("Hits")=Hits
if Passed="yes" then
rs("Passed")=True
else
if EnableProductCheck="No" then
rs("Passed")=True
else
rs("Passed")=False
end if
end if
if Elite="yes" then
rs("Elite")=True
else
rs("Elite")=False
end if
if Newproduct="yes" then
rs("Newproduct")=True
else
rs("Newproduct")=False
end if
rs("UpdateTime")=UpdateTime
rs("DefaultPicUrl")=DefaultPicUrl
end sub
%>